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-- File: StringDef s .Mesa 

-- Edited by Johnsson on April 11, 1978 9:62 AM 

DIRECTORY AUoDefs: FROM "altodefs"; 

StringDefs: DEFINITIONS - 
BEGIN 

StringHeaderSize: PRIVATE CARDINAL - 2; 

CharsPerWord: CARDINAL • AUoDefs. CharsPerWord; 
charlength: CARDINAL ■ AUoDefs. charlength; 
CharsPerPage: CARDINAL ■ AUoDefs. CharsPerPage; 
LogCharsPerPage: CARDINAL » AUoDefs .LogCharsPerPage; 

SubStringDescriptor: TYPE - RECORD [ 
base: STRING, 
offset, length: CARDINAL]; 

Substring: TYPE ■ POINTER TO SubStringDescriptor; 

Overflow: SIGNAL; 

InvalidNumber: SIGNAL; 

StringBoundsFault: SIGNAL [s:STRING] RETURNS [ns:STRING]; 

WordsForString: PROCEDURE [nchars:CARDINAL] RETURNS [CARDINAL]; 

AppendChar: PROCEDURE [srSTRING, crCHARACTER] ; 

AppendString: PROCEDURE [to,f romiSTRING] ; 

EqualString. EquivalentString: PROCEDURE [si , s2:STRING] RETURNS [BOOLEAN]; 

EqualStrings. EquivalentStrings: PROCEDURE [sl.s2:STRING] RETURNS [BOOLEAN]; 

AppendSubString: PROCEDURE[to:STRING, f romtSubString]; 

EqualSubStrings, EquivalentSubStrings: PROCEDURE [si ,s2:SubString] RETURNS [BOOLEAN]; 
EqualSubString, EquivalentSubString: PROCEDURE [sl,s2:SubString] RETURNS [BOOLEAN]; 
DeleteSubString: PROCEDURE [s:SubString]; 

-- routines for converting between strings and numbers 

StringToOecimal: PROCEDURE [STRING] RETURNS [INTEGER]; 
StringToOctal: PROCEDURE [STRING] RETURNS [UNSPECIFIED]; 
StringToNumber: PROCEDURE [s: STRING, radix; CARDINAL] 

RETURNS [UNSPECIFIED]; 
StringToLongNumber: PROCEDURE [s: STRING, radix: CARDINAL] 

RETURNS [LONG INTEGER]; 
AppendNumber: PROCEDURE [s: STRING, n: CARDINAL, radix: CARDINAL]; 
AppendDecimal: PROCEDURE [s: STRING, n: INTEGER]; 
AppendOctal: PROCEDURE [s: STRING, n: UNSPECIFIED]; 
AppendLongNumber: PROCEDURE [s: STRING, n: LONG INTEGER, radix: CARDINAL]; 

-- routines for bcpl strings 

bcplStringHeaderSize: PRIVATE CARDINAL » 1; 
bcplMaxLength: PRIVATE CARDINAL - 256; 

bcplSTRING: TYPE = PRIVATE MACHINE DEPENDENT RECORD[ 
SELECT OVERLAID ♦ FROM 
length »> [ 

length: [0. . bcplMaxLength], body: CHARACTER], 
chflpfictflr'? ""^ r 

char: PACKED ARRAY [-1 . .bcplMaxLength) OF CHARACTER]. 
ENDCASE]; 

bcplStringOverf low, mesaStringOverf low: SIGNAL; 

WordsForBcplString: PROCEDURE [nchars :CARDINAL] RETURNS [CARDINAL]; 
MesaToBcplString: PROCEDURE [srSTRING, t:POINTER TO bcplSTRING]; 
BcplToMesaString: PROCEDURE [t:POINTER TO bcplSTRING, s:STRING]; 

END. 


